home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 133 / SGDS 133.2mg / SDGS.133 / B / ESOTERICA (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-10-17  |  153 b   |  6 lines  |  [FC] Applesoft BASIC Program (0x6001)
  1. 1  PRINT  CHR$(21): TEXT : HOME : POKE 230,64
  2. 3  GOSUB 100
  3. 10  POKE 103,1: POKE 104,96: POKE 24576,0: PRINT  CHR$(4)"-qd.lingo.prg"
  4. 90  REM  GS MONO
  5. 100  CALL  PEEK(121) + PEEK(122) *256 +28: REM 8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `
  6. 110  RETURN